home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / tpstr.exe / TPSTR.DOC < prev    next >
Text File  |  1992-11-09  |  43KB  |  1,621 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.         TPSTR STRING UTILITIES
  7.            USER'S GUIDE
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.         T A B L E   O F   C O N T E N T S
  16.  
  17.  
  18.  
  19.  
  20.         1 - INTRODUCTION .................................. Page 1
  21.             - Features         ............................ Page 1
  22.             - Using TpStr      ............................ Page 1
  23.             - Licensing        ............................ Page 1
  24.             - Customer Service ............................ Page 1
  25.  
  26.         2 - GETTING STARTED ............................... Page 2
  27.             - Distribution files .......................... Page 2
  28.             - Uses clause        .......................... Page 2
  29.             - Dictionnary        .......................... Page 3
  30.  
  31.         3 - REFERENCES      ............................... Page 23
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  This version is 1.00, (c) RAVIART Philippe 1992,All Rights reserved.
  65.  
  66.  
  67.  1 - INTRODUCTION                                           Page 1
  68.      - Features
  69.  
  70.  
  71.      TpStr provide you really powerfull functions and procedures to
  72.    manage strings or chars.
  73.  
  74.      Main advantage of using TpStr is the ultimate speed and the very
  75.    large count of procedures and functions.This version 1.00 offers
  76.    you 88 functions!.
  77.  
  78.  
  79.    - Using TpStr
  80.  
  81.  
  82.      As shareware indicates,you can freely try software for a few
  83.    month without charge.
  84.      TpStr can be freely use by you for two months.After this delay
  85.    you may register for it or put it in the trash! (I don't hope !).
  86.    See Licensing for more informations.
  87.  
  88.  
  89.    - Customer Service
  90.  
  91.  
  92.      If any problems ,suggestions, comments or questions, you may
  93.    contact me with Compuserve,Fax or mail.
  94.  
  95.      a) compuserve: Contact me with my PPN number of 100135,503.
  96.      b) fax me at 99-08-97-46 (This number is located in FRANCE so
  97.         look for your foreign code numbers.
  98.      c) Write to me at:
  99.  
  100.         Mr. RAVIART Philippe
  101.         Bourg de TREAL
  102.         56140 MALESTROIT
  103.  
  104.         (FRANCE)
  105.  
  106.      In all this cases you should provide me:
  107.  
  108.      a) a descrition of the bug or problem.
  109.      b) your machine type and configuration.
  110.      c) a copy of your config.sys and autoexec.bat
  111.  
  112.      Anyone who contact me for a bug will immediately receive a new free
  113.    version with bug fixed.
  114.  
  115.  
  116.    - Licensing
  117.  
  118.      As shareware is NOT FREE software you should register for its
  119.    commercial or private use.
  120.      TpStr package is sold for only $40 until December 1993.
  121.  
  122.      The file REGISTER.TXT permits you to register.
  123.  
  124.      All registered users will received a complete source code for all
  125.    the unit present in this package.
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  2 - GETTING STARTED                                        Page 2
  135.  
  136.    - Distribution files
  137.  
  138.      In this version, TpStr contains:
  139.  
  140.        TPSTR.TPU           Compiled with {$N-,E-}
  141.        TPNSTR.TPU          Compiled with {$N+,E+}
  142.        TPSTR.DOC           This file.
  143.        TPFAST.TPU          Very fast routines used by TpStr.
  144.        REGISTER.TXT        Registration form.
  145.  
  146.  
  147.    - Uses clause
  148.  
  149.      For your easiness using TpStr your Uses Clause should look like
  150.    this:
  151.  
  152.    {$IFOPT N-}
  153.      Uses TpStr,
  154.           ...,
  155.           ...;
  156.    {$ELSE}
  157.      Uses TpNStr,
  158.           ...,
  159.           ...;
  160.    {$ENDIF}
  161.  
  162.  
  163.      When you use $N+ options, you can deal with Extended,Comp,single
  164.    and double type.So you can find functions using these types into
  165.    TpNStr but NOT in TpStr (limited to standard real type).
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  - Dictionnary                                   Page 3
  201.  
  202.  
  203.   ---------------------------------------------------------------
  204.   function    StrL  (L: Longint)                         :String;
  205.   ---------------------------------------------------------------
  206.  
  207.   Purpose   : Convert a LongInt to a string.
  208.  
  209.   Example   : S := StrL(MaxLongInt);
  210.  
  211.   Result    : S = '2147483647'
  212.  
  213.   Rating    :  4560/s
  214.  
  215.   ---------------------------------------------------------------
  216.   function    StrLF (L: Longint;Field: Integer)          :String;
  217.   ---------------------------------------------------------------
  218.  
  219.   Purpose   : Convert a LongInt to a string.
  220.  
  221.   Example   : S1 := StrLF(MaxLongInt,5);
  222.               S2 := StrLF(1,5);
  223.  
  224.   Result    : S1 = '2147483647'
  225.               S2 = '    1'
  226.  
  227.   Rating    :  6760/s
  228.  
  229.   ---------------------------------------------------------------
  230.   function    StrR  (R: Real)                            :String;
  231.   ---------------------------------------------------------------
  232.  
  233.   Purpose   : Convert a Real to a string.
  234.  
  235.   Example   : S1 := StrR(Pi);
  236.               S2 := StrR(1);
  237.  
  238.   Result    : S1 = ' 3.1415926536E+00';
  239.               S2 := ' 1.00000000000000E+0000'
  240.  
  241.   Rating    :   860/s
  242.  
  243.   ---------------------------------------------------------------
  244.   function    StrRF (R: Real;Field: Integer)             :String;
  245.   ---------------------------------------------------------------
  246.  
  247.   Purpose   : Convert a Real to a string.
  248.  
  249.   Example   : S1 := StrRF(Pi,1);
  250.               S2 := StrRF(1,5);
  251.  
  252.   Result    : S1 = ' 3.1E+00';
  253.               S2 = ' 1.0E+0000';
  254.  
  255.   Rating    :   920/s
  256.  
  257.  
  258.  
  259.  
  260.  
  261.  
  262.  
  263.  
  264.  
  265.                                                  Page 4
  266.  
  267.   ---------------------------------------------------------------
  268.   function    StrRFD(R: Real;Field,Decimals: Integer)    :String;
  269.   ---------------------------------------------------------------
  270.  
  271.   Purpose   : Convert a Real to a string.
  272.  
  273.   Example   : S1 := StrRFD(Pi,4,2);
  274.               S2 := StrRFD(1,4,2);
  275.  
  276.   Result    : S1 = '3.14'
  277.               S2 = '1.00'
  278.  
  279.   Rating    :   919/s
  280.  
  281.   -------------------------------
  282.   {$IFOPT N+}
  283.   -------------------------------
  284.  
  285.   This Part is include only if option $N is +.
  286.  
  287.   ---------------------------------------------------------------
  288.   function    StrC  (C: Comp)                            :String;
  289.   ---------------------------------------------------------------
  290.  
  291.   Purpose   : Convert a 64-Bit integer to a string.
  292.  
  293.   Example   : S1 := StrC(9.2e18);
  294.               S2 := StrC(1);
  295.  
  296.   Result    : S1 = ' 9.20000000000000E+0018'
  297.               S2 = ' 1.00000000000000E+0000'
  298.  
  299.   Rating    :   932/s
  300.  
  301.   ---------------------------------------------------------------
  302.   function    StrCF (C: Comp;Field: Integer)             :String;
  303.   ---------------------------------------------------------------
  304.  
  305.   Purpose   : Convert a 64-Bit integer to a string.
  306.  
  307.   Example   : S1 := StrCF(9.2e18,10);
  308.               S2 := StrCF(1,5);
  309.  
  310.   Result    : S1 = ' 9.2E+0018'
  311.               S2 = ' 1.0E+0000'
  312.  
  313.   Rating    :  1004/s
  314.  
  315.   ---------------------------------------------------------------
  316.   function    StrCFD(C: Comp;Field,Decimals: Integer)    :String;
  317.   ---------------------------------------------------------------
  318.  
  319.   Purpose   : Convert a 64-Bit integer to a string.
  320.  
  321.   Example   : S1 := StrCFD(9.2e18,10,5);
  322.               S2 := StrCFD(9,5,2);
  323.  
  324.   Result    : S1 = '9200000000000000000.00000'
  325.               S2 = ' 9.00'
  326.  
  327.   Rating    :   951/s
  328.  
  329.  
  330.  
  331.  
  332.                                                  Page 5
  333.  
  334.   ---------------------------------------------------------------
  335.   function    StrD  (D: Double)                          :String;
  336.   ---------------------------------------------------------------
  337.  
  338.   Purpose   : Convert a double to a string.
  339.  
  340.   Example   : S1 := StrD(1.7e308);
  341.               S2 := StrD(1);
  342.  
  343.   Result    : S1 = ' 1.70000000000000E+0038'
  344.               S2 = ' 1.00000000000000E+0000'
  345.  
  346.   Rating    :   784/s
  347.  
  348.   ---------------------------------------------------------------
  349.   function    StrDF (D: Double;Field: Integer)           :String;
  350.   ---------------------------------------------------------------
  351.  
  352.   Purpose   : Convert a double to a string.
  353.  
  354.   Example   : S1 := StrDF(1.7e308,10);
  355.               S2 := StrDF(1,5);
  356.  
  357.   Result    : S1 = ' 7.7E+0307'
  358.               S2 = ' 1.0E+0000'
  359.  
  360.   Rating    :   847/s
  361.  
  362.   ---------------------------------------------------